اگر سیستم شما بیش از یک درایو سی دی رام داشته باشد نحوه دسترسی به درایو دوم یا سوم متفاوت است.
mciSendString('open cdaudio!X: alias driveX', nil, 0, 0);
mciSendString('set driveX door open wait', nil, 0, 0);
به جای X
نام درایو را وارد کنید(فقط در سطر اول)
برای بستن نیز:
mciSendString('set driveX door closed wait', nil, 0, 0);
نمونه برنامه :
procedure TMain.open_cdrom(Sender: TObject);
var
i:integer;
s:string;
begin
s:=trim(ComboBox4.Text);//combobox4 =name cd rom
i:=pos(':\',s);
Delete(s,i,2);
label18.Caption:=s;
mciSendString(pansichar('open cdaudio!'+S+' alias drive'+s), nil, 0, 0);
mciSendString(pansichar('set drive'+s+' door open wait'), nil, 0, 0);
end;
procedure TMain.close_cdrom(Sender: TObject);
var
s:string;
begin
s:=trim(label18.Caption);
mciSendString(pansichar('set drive'+s+' door closed wait'), nil, 0, 0);
end;